object frmDetalleMaterialCompra: TfrmDetalleMaterialCompra
  Left = 0
  Top = 87
  Width = 802
  Height = 448
  Caption = 'Detalle Material:'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  DesignSize = (
    794
    414)
  PixelsPerInch = 96
  TextHeight = 13
  object RxDBGrid1: TRxDBGrid
    Left = 8
    Top = 8
    Width = 776
    Height = 395
    Anchors = [akLeft, akTop, akRight, akBottom]
    DataSource = s
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clNavy
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = [fsBold]
    OnTitleClick = RxDBGrid1TitleClick
    Columns = <
      item
        Expanded = False
        FieldName = 'DENOMINACION'
        Title.Alignment = taCenter
        Width = 193
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'NUMERO'
        Title.Alignment = taCenter
        Width = 77
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'FECHA'
        Title.Alignment = taCenter
        Width = 71
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'IVA'
        Title.Alignment = taCenter
        Width = 56
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DESCUENTO'
        Title.Alignment = taCenter
        Width = 52
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CANTIDAD'
        Title.Alignment = taCenter
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'UNI'
        Title.Alignment = taCenter
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SUBTOTAL'
        Title.Alignment = taCenter
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'TOTAL'
        Title.Alignment = taCenter
        Width = 70
        Visible = True
      end>
  end
  object cds: TSQLClientDataSet
    CommandText = 
      'SELECT '#13#10'  COMPRA.NUMERO,'#13#10'  COMPRA.FECHA,'#13#10'  COMPRA.IVA,'#13#10'  COM' +
      'PRA.DESCUENTO,'#13#10'  RENGLON_COMPRA_NEW.CANTIDAD,'#13#10'  RENGLON_COMPRA' +
      '_NEW.UNITARIO*(1-COMPRA.DESCUENTO/100) AS UNI,'#13#10'  (RENGLON_COMPR' +
      'A_NEW.CANTIDAD * RENGLON_COMPRA_NEW.UNITARIO)*(1-COMPRA.DESCUENT' +
      'O/100) AS SUBTOTAL,'#13#10'  (RENGLON_COMPRA_NEW.CANTIDAD * RENGLON_CO' +
      'MPRA_NEW.UNITARIO) * (1 + COMPRA.IVA / 100) * (1 - COMPRA.DESCUE' +
      'NTO / 100) AS TOTAL,'#13#10'  PRESUPUESTO.DENOMINACION'#13#10'FROM'#13#10'  RENGLO' +
      'N_COMPRA_NEW'#13#10'  INNER JOIN COMPRA ON (RENGLON_COMPRA_NEW.ID_COMP' +
      'RA = COMPRA.ID_COMPRA)'#13#10'  INNER JOIN PRESUPUESTO ON (COMPRA.ID_O' +
      'BRA = PRESUPUESTO.ID_PRESUPUESTO)'#13#10'WHERE'#13#10'  RENGLON_COMPRA_NEW.I' +
      'D_MATERIAL = :id AND'#13#10'  COMPRA.FECHA >= :fechaIni AND'#13#10'  COMPRA.' +
      'FECHA <= :fechaFin'#13#10#13#10
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftUnknown
        Name = 'id'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'fechaIni'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'fechaFin'
        ParamType = ptInput
      end>
    DBConnection = Datos.Con
    Left = 16
    Top = 320
    object cdsNUMERO: TIntegerField
      DisplayLabel = 'Fact. N'#186
      FieldName = 'NUMERO'
    end
    object cdsFECHA: TSQLTimeStampField
      DisplayLabel = 'Fecha'
      FieldName = 'FECHA'
      Required = True
    end
    object cdsIVA: TFloatField
      FieldName = 'IVA'
      DisplayFormat = '#0.00'
    end
    object cdsDESCUENTO: TFloatField
      DisplayLabel = 'Dto.'
      FieldName = 'DESCUENTO'
      DisplayFormat = '#0.00'
    end
    object cdsCANTIDAD: TFloatField
      DisplayLabel = 'Cant.'
      FieldName = 'CANTIDAD'
      Required = True
      DisplayFormat = '#0.00'
    end
    object cdsSUBTOTAL: TFloatField
      DisplayLabel = 'Subtotal'
      FieldName = 'SUBTOTAL'
      Required = True
      DisplayFormat = '#0.00'
    end
    object cdsTOTAL: TFloatField
      DisplayLabel = 'Total Gral.'
      FieldName = 'TOTAL'
      DisplayFormat = '#0.00'
    end
    object cdsDENOMINACION: TStringField
      DisplayLabel = 'Obra'
      FieldName = 'DENOMINACION'
      Required = True
      Size = 50
    end
    object cdsUNI: TFloatField
      DisplayLabel = 'Unitario'
      FieldName = 'UNI'
      DisplayFormat = '#0.00'
    end
  end
  object s: TDataSource
    DataSet = cds
    Left = 48
    Top = 320
  end
end
